home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / programmierung / proasm / rexx / ttx / killalljobs.ttx < prev    next >
Text File  |  1996-04-29  |  1KB  |  28 lines
  1. /******************************************************************************
  2.  
  3.  ASX KillAllRunningJobsScript for TurboText
  4.  
  5.   © 1993 by Michael "TILT!" Ryffel
  6.   [some parts ripped from d.weber]
  7.  
  8.  ******************************************************************************
  9.  
  10.  this script momentary kills all running jobs; wether they were started by
  11.  turbotext or not. this is sure gonna be improved in a future release, as soon
  12.  as i understand all the options of asx...
  13.  
  14.  ******************************************************************************/
  15.  
  16. OPTIONS RESULTS            /* uups... */
  17.  
  18. ADDRESS 'asx_rexx'        /* address asx*/
  19.  ISTHEREPORT            /* is ther any port */
  20.  port=result            /* get it */
  21.  DO WHILE port~=''        /* as long as there is one */
  22.   ADDRESS (''||port)                            /* address it */
  23.   EndOfAssembly            /* and kill it */
  24.   ADDRESS 'asx_rexx'                            /* readdress asx */
  25.   ISTHEREPORT                                   /* is there another one */
  26.   port = result                                 /* get this one too */
  27.  END                                            /* do it again sam... */
  28.